home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbrep.arc / REPSUB.PRG < prev   
Text File  |  1985-10-30  |  1KB  |  35 lines
  1. *** REPSUB.PRG   Subroutine to GLOBAL SEARCH AND REPLACE PROGRAM 
  2. NFIELD = &MFIELD
  3. * CHECK IF FIELD CONTAINS SINGLE AND/OR DOUBLE QUOTES
  4. DO CASE
  5.   ** CASE FOR BOTH SINGLE AND DOUBLE QUOTES IN FIELD
  6.   CASE '"'$&MFIELD .AND. "'"$&MFIELD
  7.     ? "Sorry, unable to replace fields containing both single and double quotes."
  8.     ? "Please edit manually.  "
  9.     READ
  10.     WAIT
  11.     MCOUNT = MCOUNT + 1
  12.     RETURN
  13.   ** CASE FOR DOUBLE QUOTES IN FIELD
  14.   CASE '"'$&MFIELD
  15.     ** LPART1 = LENGTH OF FIRST PART OF FIELD TO SAVE
  16.     LPART1 = AT('&MTEXT','&NFIELD') - 1
  17.     **PART1 = FIRST PART OF FIELD TO STORE
  18.     PART1 = SUBSTR('&NFIELD',1,LPART1)
  19.     ** MSTART2 = START OF SECOND PART OF FIELD TO SAVE
  20.     MSTART2 = LPART1 + LMTEXT + 1
  21.     ** LPART2 = LENGTH OF SECOND PART OF FIELD TO SAVE
  22.     LPART2 = LEN('&NFIELD') - MSTART2 + 1
  23.     ** PART2 = SECOND PART OF FIELD TO STORE
  24.     PART2 = SUBSTR('&NFIELD',MSTART2,LPART2)
  25.   OTHERWISE
  26.     LPART1 = AT("&MTEXT","&NFIELD") - 1
  27.     MSTART2 = LPART1 + LMTEXT + 1
  28.     LPART2 = LEN("&NFIELD") - MSTART2 + 1
  29.     PART1 = SUBSTR("&NFIELD",1,LPART1)
  30.     PART2 = SUBSTR("&NFIELD",MSTART2,LPART2)
  31. ENDCASE
  32. REPLACE &MFIELD WITH PART1 + NTEXT + PART2
  33. MCOUNT = MCOUNT + 1
  34. RELEASE NFIELD
  35.